SUBROUTINE LINED(A,B,L)
	CALL LINES(A,B,L)
	END

	SUBROUTINE LINES(A,B,L)
	COMMON /FL/IC,NZ,NX,RZ,XGP
	COMMON /PLTR/IPLT,RHT,DIS
CC	COMMON/DL/IXRX,SAVER,AA /PLTR/IPLT,RHT,DIS
	COMMON R2,JA,CENTR,JB,RJQ(20),JQ(20)
	1 /DPY/GO,TOP,BOT
CC	1 /DST/BB,CC
CC	DATA BB/.008/,CC/3.5/

CC LINES:	0		;	GO TO 23
CC DIST1:	JRST L23	;22	IF(JQ(1).NE.0)GO TO 23
CC 	SKIPG .COMM.+=12  ;USE P11 > 0 FOR DISTORTION.
CC 	JRST L23		;P11 IS BB (DIST)  P12 IS CC(DST+1)
CC ;;	SKIPE PLTR+=27;DST=.005  DST+1=2.2 (IN FILMSS.FAI) (.0044, 3.5 IN 'ADVICE')
CC ;;	JRST L23	;	IF(CC.EQ.1000)GO TO 23
CC ;;DIST:	MOVSI T,212764
CC ;;	CAMN T,DST+1	;** FOR DISTORATION -- SEE ALSO FILLMS ***
CC ;;	JRST L23	;	B=B*(CC-BB*ABS(A))
CC 	MOVM T,@(16)
CC 	FMPR T,DST	;BB IS DST, CC IS DST+1
CC 	FSBR T,DST+1
CC 	FMPRM T,@1(16)
CC 	MOVNS @1(16)	;23	IF(IPLT)GO TO 2
CC L23:	SKIPGE PLTR
	IF(IPLT.LT.0)GO TO 9
C DO NEXT 1ST TIME THROUGH.  FINDS TOTAL HEIGHT, ETC.
	IF(JA.EQ.44)RETURN
C WON'T LOOK AT BARLINES FOR HEIGHT.
	IF(B.LT.BOT)BOT=B
	IF(B.GT.TOP)TOP=B
	RETURN
9	M=ROFF(A*DIS)
	N=ROFF(B*RHT)
8	CALL PLOT(M,N,L)
	END

	SUBROUTINE PLOTS(K)
C DUMMY ROUTINE
	END

	SUBROUTINE NOIR(RMINI)
C  BLACKS IN NOTES
	COMMON R2,JA,CENTR,J2,RJQ(20),JQ(12),B,C,KC,D,N,JY,M,L
	COMMON/PLTR/IPLT,RHT,DIS
CC	1 /XRN/IRN(1)
CC	1 /STF/RSTFAC(0/7),RSTJ2
CC	EQUIVALENCE (PRE,IRN(1))
	DIMENSION IRN(200)
	DATA BL/7.6/,BH/6.9/
C  ADJUST BH AND BL FOR HEIGHT OF NOTE AND 'WIDTH'
	IPOS=ROFF(RJQ(1)*DIS)
	JPOS=ROFF(CENTR*RHT)
CC	IF(RMINI.NE.RSTJ2)JPOS=JPOS+1
CCC TO PUSH MINI-NOTE UP ONE XGP NOTCH!!!! *******************
	IF(-RMINI.EQ.PRE)GO TO 10
C USE OLD DATA IF THIS NOTE IS SAME SIZE AS LAST ONE.
	PRE=-RMINI
 	D=.25
	B=BH*RMINI*RHT
	E=RMINI*DIS
	A=BL*E
	IC=A
	A=A*A
	E=-B/4.
	K=B
	B=B*B
C  USES EQUATION FOR ELLIPSE
	N=1
	NX=1
6	DO 1 J=-K,K
	Y=J*J
	X=SQRT(A-(A*Y)/B)
	L=E-X
	M=X+E
C  THE TWO SIDES OF THE LINE
CC	IF(N.LT.0)CALL EXCH(L,M)
	IF(N.GE.0)GO TO 2
	JJ=M
	M=L
	L=JJ
2	IRN(NX)=L
	IRN(NX+1)=M
C SAVES DATA FOR THIS SIZE NOTE
	NX=NX+2
	E=E+D
C  E IS TO TILT IT.
1	N=-N
10	CALL PLOT(IPOS+3,JPOS,3)
	N=1
	L=IPOS+IC
C NOW USE SAVED DATA TO DRAW A NOTE
	DO 11 M=-K,K
	J=M+JPOS
	CALL PLOT(L+IRN(N),J,2)
	CALL PLOT(L+IRN(N+1),J,2)
11	N=N+2
	END